#!perl -w opendir(local *D,"."); my @List = sort { my ($an) = $a=~m/(\d+)/s; my ($bn) = $b=~m/(\d+)/s; if(!$an) { -1 } elsif(!$bn) { 1 } else { ($an+0) <=> ($bn+0) } } grep { !/^\./ && /shtml/ } readdir(D); die "You must place this script to the main fucked SHTML directory!\n" if !@List; open(local *F, ">all.html"); my $i=0; foreach my $fn (@List) { local ($/,$\); open(local *FI, $fn) or next; my $st=; if($i!=0) { $st=~s{^.*?}{}si; } else { $st=~s{(\s*)}{ $1 }sig; } $st=~s{

$st"; }sgie; $st=~s{(\n"; print F $st; } continue { $i++; }